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ZTITLE "LIBSUNLOCK_FILE = Clear deaccess lock on file’ 
MODULE LIBSUNLOCK_FILE ( ! Clear Geaccess lock on tits 

{DENT = 'v04-000' ! File: LIBUNLFIL.B832 Edit: 1-001 
pos 


i geeeeeeeeereeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeteeeeeeeeeeeeeeeeeeeeeeeeeneee 
'® ® 
i COPYRIGHT (c) 1978, 1980, 1982, 1984 B x 
i® DIGITAL Fel aecEnve CORPORATION, ” MAYNARD. MASSACHUSETTS. ® 
i ALL RIGHTS RESER ® 
‘® ® 
!® ae SOFTWARE IS pumas ened UNDER A LICENSE AND * 
He Y IN ACCORDANCE WITH THE TERMS OF SUCH * 
i IN NCLUSION OF iy * ABOVE COPYRIGHT NOTICE. THIS * 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWIS AVAILABLE TO ANY * 
!t OTHER PERSON. NO "TITLE TO AND OWNERSHIP OF T * 
is TRANSFERRED. * 
® ® 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. * 
® 
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i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 

is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 

i 

b enaueubeunnaedesnsnesenondncndenieesendossenenesnenenaeaensennnieneennnen 
i 


MMM 2 2 3 SS SS SI OOOOOOOOO 


Oooeeo 


'4¢ 


FACILITY: General Utility Library 

: ABSTRACT: 

This routine clears a deaccess lock on a file. 
: ENVIRONMENT: Runs at any access mode - AST reentrant 
‘ 


WAI MWWIWWIWWInoTnonony 


COOooooocoocoooona 


i AUTHOR: Martin L. Jack, CREATION DATE: 23-Dec-1981 
MODIFIED BY: 
1-001 - Original from LIBACP.B32. MLJ 23-Dec-1981 
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L VMSLIB.SRC NLFIL 
5; & pf 1 ZSBTTL ‘Declarations’ 
>; 49 48 1! 
; 0 Be 1 ! SWITCHES: 
; 1 bes ! ! 
H 35 O8¢ } SWITCHES ADDRESSING_MODE (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
; 5 084 1! 
H $ 055 1 ! LINKAGES: 
; $29 7s 
; ws 057 1 LINKAGE 
; 28 $28 1 ; LINKAGE_JSB_2_2 = JSB(REGISTER=0;REGISTER=1,REGISTER=2); 
H 61 060 1 ! TABLE OF CONTENTS: 
3 66 061 1! 
; 6 bog 1 
: 64 06 1 FORWARD ROUTINE 
3; «669 064 1 LIBSUNLOCK_FILE; ! Clear deaccess lock on file 
; 66 065 1 
; OF 0066 1! 
H 68 0067 1 ! INCLUDE FILES: 
; & 0068 1! 
oe 0069 1 
3 4 Bate ' LIBRARY ‘SYSSLIBRARY:LIB'; ! System symbols 
3 6 0078 ! '®! REQUIRE "RTLIN:RTLPSECT'; ! Define PSECT declarations macros 
3; 75 0074 1! 
; 76 0075 1 ! MACROS: 
TED ai 0076 1! 
; «678 0077 1! NONE 
: 79 0078 1! 
; wD 0079 1 ! EQUATED SYMBOLS: 
; 8 0080 1! 
; Ss att 1! NONE 
; & 00 ; 1! 
; B4 0083 1 ! FIELDS: 
3 5 0084 1! 
; 6 tH 1! NONE 
; 87 O86 ‘2 
H HH sit t4 ' PSECTS: 
; 3 0089 1 !e! DECLARE _PSECTS (LIB); ' Declare PSECTs for LIBS facility 
; 9 6094 1 CODE = _LIBSCODE (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING_MODE (WORD_RELATIVE)), 
es . 4 1 PLIT = _LIBSCODE (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING MODE (WORD RELATIVE)) 
; 94 093 1 OWN = “LIBSDATA (READ, WRITE, NOEXECUTE, NOSHARE, PIC, ADDRESSING MODE (LONG RELATIVES) 
; 99 099% GLOBAL = _LIBSDATA (READ, WRITE, NOEXECUTE, NOSHARE, PIC, ADDRESSING_MODE (LONG_RELATIVES) ; 
s oF 096 1 ! OWN STORAGE: 
.- 2 97 1! 
; | 99 98 1! NONE 
: 100 099 1! 
3; 6101 100 1 ! EXTERNAL REFERENCES: 
3 44 101 1! 
: 10 1 ¢ 1 
3; 104 1 1 EXTERNAL ROUTINE 


N 5 

LIB OCK_FILE Spee FILE = Clear deaccess lock on file 16-Sep AX-11 Bliss- 

Vie 005 Decl pees 18-8 Sep =1382 9¢: i: i VMSLIB.SRC cis Sue or? So, 31 
; 105 1046 1 LIBSANALYZE_SDESC_R2: LINKAGE_JSB_2 ! Analyze descriptor 
; 196 198 1 LIBSFREE_EF> ! Bee fécate an event ite . 
; +14 : $ ! LIBSGET_EF; ! Allocate an event flag” 
: 109 198 1 EXTERNAL LITERAL ' Completion status codes 
; 110 109 1 LIBS_INVARG ! Invalid ar 
; 111 110 1 LIBS" INVFILSPE; ! Invalid file  coacittcation 
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LIBSUNLOCK_FILE LIBSUNLOCK_FILE = Clea 4 02:27: AX=11 Bliss-32 V4.0-74 Page 4 mA 
ye 000 > LIBSUNLOCK_FILE = Clear deaccess lock on file 122868=1 382 96:97:48 VMSLIB.SRCILISUNLFIL.B 231 . (3) ve 
; #113 111 1 ZSBTTL "LIBSUNLOCK_FILE = Clear deaccess lock on file’ 

> 6114 116 1 GLOBAL ROUTINE LIBSUNLOCK_FILE ( ' Clear deaccess lock on file 
s 115 sb) ee FILE_SPEC ! File specification string 

3 BY 114 «1 ds 

Pe ORT ie 

: 119 Wf | FUNCTIONAL DESCRIPTION: 

: : 1 8138 i This routine clears a deaccess lock on a file. 

: 5 gi 1 i CALLING SEQUENCE: 

; \$? 3 § 1 ! ret_status.wlc.v = LIBSUNLOCK (file-spec.rt.dx) 

: i 4 5 | FORMAL PARAMETERS: 

: 129 0137 1 i FILE_SPEC Address of a descriptor for the file specification. 

; 130 0128 1! This string is a standard RMS file specification; it 
‘Pee bh 8188 . 2 must not contain a node name nor wild card characters; 
3 136 0130 1! it must reference a disk device. The string must be 
3 137 ate no longer than 255 characters. 

: 135 5138 1 | IMPLICIT INPUTS: 

; «136 0134 1! 

ig eos es 

: 139 0137 1 | IMPLICIT OUTPUTS: 

3; 140 0138 1! 

Be iat 

; 148 141 i COMPLETION STATUS: 

: Hy a148 \ SS$_WASSET Normal successful completion; file was unlocked 

; ri 4 Riaz ' SS$_WASCLR Normal successful completion; file was not locked 

5 149 0147 1! LIB$_INVARG Reguired argument omitted, or file-spec longer than 

3 139 de 4 ! } 255 characters 

; 13¢ 0150 1! LIBS_INVFILSPE File specification contained a node name or wildcard or 
: 137 bias ! did not reference a disk device 

: 155 6188 1! LIBSANALYZE_SDESC errors 

: 138 bie 1! SPARSE errors 

s 157 155 1! $SEARCH errors 

; 158 3128 @. SASSIGN errors 

¢ 159 015 7s IBSGET_EF errors 

: 160 138 . Q10 errors 

s 161 159 1! SDASSGN errors 

; 196 199 ! LIBSFREE_EF errors 

; 164 168 | SIDE EFFECTS: 

: 166 bez 1 i Deaccess lock cleared on file. 

: 167 165 1! 

; 168 166 1 !e- 

3: 169 16 1 


cc Or hr r— 
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LIBSUNLOCK_F1 0-74 
V LIBSUNLOCK_FI VMSLIB.SRCJLIBUNLFIL.B52;1 
; 170 016 BEGIN 
s 7) 183 LOCAL 
3 17 1 FAS: SFAB_DECL, ! FAB for SPARSE 
ar 17 NAM: $NAM aa ' NAM bagek for SPARSE 
s 176 o126 ESA_BUFFER: VECTORCNAMSC_MAXRSS ,BYTE { ! Gependes string area 
Fee be 17 TEMP DESC: Het atts ter re Mite ! Utility descriptor 
; 178 0174 UCHAR: BLOCKLATRS$S_UCHAR BYTE 
.. 37 0175 ere ai ! File graces rertettcs 
, tm 3178 FIB: BLOCK FIGSC_LENGTH BYTE], ! FIB 
: 179 177 FIB_DESC VECTORCE ! bescriptor for FIB 
: 180 0178 ATR? BLOCKVECTORC2 8,BYTEJ, | Attribute descriptors 
: 181 179 10SB: VECTORL4 ,WORDJ, | 1/0’ status block 
: 136 180 CHANNEL : WORD, ' Channel number 
me | b183 EFN ! Event flag number 
> 184 01 g STATUS_1, i Status return 
: #185 018 STATUS -¢- ! Status return 
> «6186 0184 STATUS_3, ! Status return 
s 187 0185 STATUS_4, ! Status return 
; 188 0186 STATUS_5, ! Status return 
; «6189 0187 STATUS_6, ! Status return 
: 190 0188 § STATUS 7, ' Status return 
: «(191 0189 FINAL_STATUS; ! Status return 
3 136 0190 2 LABEL 
3; 0191 2 PROCESS; ! Block exited when processing complete 
: 194 O18 2 BUILTIN 
: «195 019 § ACTUALCOUNT, ! Return number of arguments 
: 196 0194 TESTBITSC; ! Test if bit set, clear bit 
3 197 0195 2 
; «198 0196 2 !4 
: iW 0197 2 ! Ensure that the required parameter is present. 
; 590 0198 2 !- 
s el 0199 2 
; 202 0200 IF ACTUALCOUNT() EQL 0 THEN RETURN LIBS_INVARG; 
: 203 0201 
; 204 o50¢ '+ 
: 205 020 ! Initialize RMS structures required to do a $PARSE and $SEARCH. 
: 206 0204 te 
s 207 0205 
; 208 0206 $FAB_INIT(FAB=FAB, 
3 500 0207 RAM=NAM) ; 
: 210 P 8508 SNAM_INIT(NAM=NAM 
; 211 P 0209 ESA=ESA_BUFFER 
; gi 10 ESS=NAMSC_MAXRSS) ; 
i er 
: \? 0918 : Analyze the input descriptor and set up the FAB filename descriptor. 
: 217 15 
s 22 1g BEGIN ! block to use output recisters 
: 219 1 REGISTER 
: 220 | Ri = 1, 
: 1 B R2 = 2; 
: 5 1 STATUS_1 = LIBSANALYZE_SDESC_R2(.+ILE_SPEC; R1, R2); 
$ 4 ¢ IF NOT STATY 1 THEN RETURN” .STATUS T; 
: 225 IF .R1 GTRU 255 THEN RETURN LIB$_INVARG; 
: 226 0224 3 FABLFABSB_FNS) = .R1; 
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FABCFABSL_FNA] = .R2; 

END; ! block to use output registers 

' 

' 


STATUS_2 = SPARSE (FAB=FAB); 
IF NOT~.STATUS_2 THEN RETURN .STATUS_2; 


1+ 
' Perform various error checks on the file specification. It must not have a 
node name, must not contain wildcards, and must reference a disk device. 


C NAACHARS), FNB] AND (NAM$M_WILDCARD OR NAM$M_NODE)) NEQ 0 OR 
en” -BLOCKCFABCFABSL_DEVJ, BEVS$V_RND; ,BYTE] 


BEGIN 


+ 

! If the string contained a wildcard or a node name, internal RMS resources 
' have been consumed by SPARSE. Execute another SPARSE using the same FAB 
on a null string to release these resources. 


FABCFABSB_FNS) = 0; 
SPARSE (FAB=F AB) ; 
RETURN LIB$_INVFILSPE; 


V+ 
Perform a $SEARCH to get the file identification of the file. 


STATUS_3 = $SEARCH(FAB=FAB); 
IF NOT~.STATUS_3 THEN RETURN .STATUS_3; 


t+ 
Set up the FIB. 


CHSFILL(O, FIBSC_LENGTH. F 18); 

FIBCFIBSL_ACCTLJ = FIBSM_WRITE OR FIBSM_NOREAD OR FIBSM_NOWRITE; 
FIBCFIBSW-FID_NUM] = .NARCNAMSW_FID_NUMJ; 

FIBLFIBSW-FID-SEQ) = .NAMCNAMSW-FID-SEQ]; 

FIBCFIBSWFID-RVNJ = .NAMCNAMSW_FID-RVNJ; 

'¢ 


F1B_dEscto) = FIBSC_LENGTH; 
FIB_DESCL1) = FIB 
+ 


9 

LIBSUNLOCK_FILE UNLOCK_FILE = Clear deaccess lock on file 1b-5¢ -'984 02:27: AX-11 Bliss-32 V4.0-74 Page 7 
yOe-000 UNLOCK_FILE = Clear deaccess lock on file 1 me Het) 7 96:97:48 VMSLIB.SRC CTSUNLEIL 68231 . (3) 

He Set up the attribute List. 

89 ATRCO, ATRSW_TYPE] = ATRSC_UCHAR; ! File characteristics 

88 ATRLO, ATRSW_SIZE] = ATRSS_UCHAR; 

89 ATRLO, ATRS ABR = UCHAR; 

30 ATR(1, 0,0,32,0] = 0; ! End of List 

9 4 

37 ! Assign a channel to the device. 

95 

96 Emp DESCEDSC$W_LENGTH] = ,NAMCNAM$SB_DEV}: 

97 EMP DESCCDSCSA_ POINTER] = .NAMCNAMSC_DEVJ; 

98 TATOS_4 = SASSIGN(DEVNAM=TEMP_DESC, CHAN=CHANNEL); 

99 F NOT~.STATUS_4 THEN RETURN .STATUS_4; 


+ 
Allocate an event flag. 


5 =L 


TAT I 
F »STATU 


U BSGET_EF (EFN); 
NO $_5 


S. 
IF NOT x 
THEN 
BEGIN 
SDASSGN(CHAN=. CHANNEL) ; 
RETURN .STATUS_5; 


END 
+ 
! Beginning of block that is exited when processing is complete. FINAL_STATUS 


contains the status to be returned to caller. 


PROCESS: BEGIN 


‘+ 
Read attributes of the file. 


MIMINININ 3 2 2 2 OS St  S OOOOOCOCOCO 


FINAL STATUS = $Q]0W( 
FONC= pn le 


Pi=FIB DESC, 

P5=ATRI; 
F .FINAL_STATUS THEN FINAL_STATUS = .IOSBLO); 
F NOT .FINAL_STATUS THEN LEAVE PROCESS; 
+ 


IA. AAIAIPORIPIPONY 


NAL_STATUS = SS$_WASCLR; 
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Rewrite the file characteristics to clear the lock. 


F ANAL bal « = +t 


Y, 


$ 
$ 
8 4 
1 4 
§ 4 
4 
$f 
§ 4 FO 
8 4 CHAN=.CH ANN oe 
8 4 EFN=.EFN 
9 4 10SB=10S6 
: 4 Pi=tl F18 Desc. 
0 ; 4 IF FINAL iat TUS THEN FINAL_STATUS = .10SBC0]; 
0 4 IF NOT .FINAL_STATUS THEN _LEAV E PROCESS; 
0354 4 FINAL_STATUS = sss  WASSET; 
83 5 END; 
03 5 '+ 
0358 i End of block that is exited when processing is complete. FINAL_STATUS 
8 2 t contains the status that is to be returned to caller. 
pees 
td) END; ! of block PROCESS 
036 
Baee + 
Bee 7 Deassign the channel and deallocate the event flag. 
0367 
0368 STATUS_6 = SDASSGN(CHAN=. CHANNEL) ; 
0369 STATUS_7 = LIBSFREE_EF(EFN); 
0370 IF NOT .STATUS_7 THEN RETURN .STATUS_7; 
tial IF NOT “STATUS — “6 THEN RETURN .STATUS “6; 
b358 + 
0374 i Return the status. 
0375 i- 
B38 
037 RETURN .FINAL_STATUS; 
0378 END; ! End of routine LIBSUNLOCK_FILE 
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SYS$QIOW, RB 
SYSSDASSGN, R7 
SYSSPARSE, 
=548(SP), 
(AP) 


1 
, (SP), #0, #80, S$RMS_PTR 


#20483, SRMS_PTR 
#2, $RMS_PTRT22 

#2, $RMS-PTR+31 

NAM, SRS _PTR#40 
#0,'(SP),-#C, #96, SRMS_PTR 


#24578, $RMS_PTR 

#1, $RMS_PTR710 

ESA BUFFER, $RMS_PTR+12 
LE_SPEC, R 

BSANAL YZE SDESC_R2 

ATUS_1, 58 

» #255 

IB$_INVARG, RO 


» FAB+S2 
AB+44 
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TATUS 3, 6$ 
#O, (SP). #0, #64, FIB 
#1281, FI 
NAM® 56, 
NAM+40, F 
64, FIB_D 

FIB-DE 

UCHAR, ATR+4 
AT 


R 
NAM+57, TEMP_DESC 
art ae TEMP _DESC+4 


CHANNEL 

TEMP DESC 

#4, SYSSASSIGN 
STATUS_4, 7$ 
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-LIBSCODE + 0000 


413 bytes, Routine Base: 


: Routine Size: 


voo-b00 <=" '“* TIBSUNLOEK-FILE = Clear deaccess Lock on fils ib Sep-1986 49:86:40 EYMSLIB SRESLIGUML IL -BS2;1 ng 
; 388 0328 4 BP on ! End of module LIBSUNLOCK_FILE 

: PSECT SUMMARY 

3 Name Bytes Attributes 

: _LIBSCODE 413 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

; Library Statistics 

Be ed ober A ee a Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped me 

; _$255$DUA28:CSYSLIBILIB.L32;1 18619 91 0 1000 00:01.8 


; othe 


COMMAND QUALIFIERS 


BLISS/CHECK= (FIELD, INITIAL OPTIMIZE) /NOTRACE/LIS#L1SS:LIBUNLF IL/0BJ=08J$:LIBUNLF IL MSRC$:LIBUNLF IL/UPDATE=(ENH$:LIBUNLF IL 


Elapsed Time: 
Lines/CPU Min: 
penance (ene 26434 


Used 


de + 0 data bytes 
00: 1g. “7 
00:13.8 
4 


177 pages 


tion Complete 
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